home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATHEMAT / 1769.ZIP / TSUBS.ASM < prev    next >
Assembly Source File  |  1985-06-09  |  663b  |  46 lines
  1. code    segment 'code'
  2.     assume    cs:code
  3. public    date,time
  4. date    proc far
  5.     push bp
  6.     mov bp,sp
  7.     mov ah,2ah
  8.     int 21h
  9.     les bx,dword ptr[bp+14]
  10.     mov es:[bx],cx
  11.     mov ah,0
  12.     mov al,dh
  13.     les bx,dword ptr[bp+10]
  14.     mov es:[bx],ax
  15.     les bx,dword ptr[bp+6]
  16.     mov al,dl
  17.     mov es:[bx],ax
  18.     mov sp,bp
  19.     pop bp
  20.     ret
  21. date    endp
  22. time    proc far
  23.     push bp
  24.     mov bp,sp
  25.     mov ah,2ch
  26.     int 21h
  27.     les bx,dword ptr[bp+18]
  28.     mov ah,0
  29.     mov al,ch
  30.     mov es:[bx],ax
  31.     les bx,dword ptr[bp+14]
  32.     mov al,cl
  33.     mov es:[bx],ax
  34.     mov al,dh
  35.     les bx,dword ptr[bp+10]
  36.     mov es:[bx],ax
  37.     mov al,dl
  38.     les bx,dword ptr[bp+6]
  39.     mov es:[bx],ax
  40.     mov sp,bp
  41.     pop bp
  42.     ret
  43. time    endp
  44. code    ends
  45.     end
  46.